home *** CD-ROM | disk | FTP | other *** search
/ PCMania 32 / PCMania CD32_2.iso / bioforge / script / ai_lex.scp < prev    next >
Text File  |  1995-03-02  |  6KB  |  455 lines
  1.  
  2.  
  3. { LEX_LOAD
  4.  
  5. @Çì LEX_WOUNDS
  6. ^îÇ = 0
  7.  
  8. }
  9. { HARD_LOAD
  10.  
  11. @Çì LEX_WOUNDS
  12. ^îÇ = 0
  13.  
  14. }
  15. { LEX_BLINKY
  16. :TOP
  17. W 3 SECONDS
  18. I @Ç⌐ LEX THEN
  19. @Ç¥ BLINK
  20. J #Çâ
  21. }
  22. { KILLLEX
  23. I ^ï┤ THEN 
  24. é 
  25. ^ï┤ = 1
  26. .ÇâÇÇ = 0
  27.  
  28.  
  29. Æ 
  30.  
  31. @Ç¥ EXITMONITOR 
  32.  
  33.  
  34.  
  35.  
  36. I ^ï┐ THEN
  37. W ^ï┐ SECONDS
  38. ^ï┐ = 2 
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49. w CURFIG RESTORE ALL
  50.  
  51.  
  52. Ü 0 0 0 999 
  53.  
  54. ì 0
  55. ì MOVE 0 0 0 0
  56.  
  57.  
  58. ^îÇ = 1
  59. C SHOW STITLE
  60.  
  61. H 
  62. }
  63. { DAMAGE_LEX_IMPACT _AMOUNT
  64. @Ç¢ PLAYER
  65. I .ÇâÇÇ <= 0 THEN
  66. é 
  67. D ~ÇÇ IMPACT
  68. I .ÇâÇÇ <= 0 THEN
  69. {
  70.  
  71. ^ï┐ = 7
  72.  
  73. ║ ON
  74. @Çì KILLLEX
  75. }
  76. }
  77. { DAMAGE_LEX_ENERGY _AMOUNT
  78. @Ç¢ PLAYER
  79. I .ÇâÇÇ <= 0 THEN
  80. é 
  81. D ~ÇÇ ENERGY
  82. I .ÇâÇÇ <= 0 THEN
  83. {
  84.  
  85. ^ï┐ = 7
  86.  
  87. ║ ON
  88. @Çì KILLLEX
  89. }
  90. }
  91. { LEX_DEATH
  92. @Ç¥ EXITMONITOR 
  93. â 
  94. A OFF
  95.  
  96.  
  97. ║ ON
  98. M DIE
  99. o 
  100.  
  101. ^ï┐ = 7
  102. @Ç¥ KILLLEX
  103. }
  104.  
  105. { LEX_STAND
  106. I @ÇÄ ZEG THEN
  107. {
  108. M FLOAT
  109. é 
  110. }
  111. :TOP
  112. M STAND CONTINUE
  113. W @Çà 2 14 SECONDS
  114. I ^Ç╡ == 0 THEN
  115. {
  116. I @ÇÆ RTHAND THEN
  117. {
  118.  
  119. I @Çà 10 20 < 15 THEN
  120. M STAND_3
  121. E 
  122. M STAND_4
  123. }
  124. E 
  125. {
  126. N @Çà 2 4 
  127. {
  128. U 2 
  129. M STAND_1
  130. X ÇÇ 
  131. U 3 
  132. M STAND_2
  133. X ÇÇ 
  134. U 4 
  135. I @Çà 10 20 < 15 THEN
  136. M STAND_3
  137. E 
  138. M STAND_4
  139. X ÇÇ 
  140. }
  141. }
  142. }
  143. J #Çë
  144. }
  145. { LEX_WALK
  146. I .ÇéÇÇ < 33 THEN
  147. M WALK_DMG2
  148. E I .ÇéÇÇ < 66 THEN
  149. M WALK_DMG1
  150. E 
  151. M WALK
  152. }
  153. { LEX_RUN
  154. I .ÇéÇÇ < 33 THEN
  155. {
  156. M RUN CONTINUE
  157. W 10
  158. A OFF
  159. M RUN_N_FALL
  160. M GET_UP_FORWARD
  161. A ON
  162. }
  163. E 
  164. M RUN
  165. }
  166. { LEX_WALK_BACK
  167. I .ÇéÇÇ < 33 THEN
  168. M LIMP_BACK
  169. E 
  170. M WALK_BACK
  171. }
  172. { LEX_ATK_SHOOT
  173. I @Çæ RTHAND GRENADE THEN
  174. M GRENADE_TOSS
  175.  
  176. E I ^ﺠ= 1 OR ^üÇ THEN
  177. {
  178. ^ﺠ= 0
  179.  @Çì FIRE_PFD
  180.  
  181.  
  182.  
  183. I ^üÇ = 0 THEN
  184. {
  185. W 3 SECONDS
  186. i LEX PFDONCE
  187. }
  188. }
  189. E I @Çæ RTHAND BLASTER = $üâ OR @Çæ RTHAND TONFA = $üâ THEN
  190. {
  191. I @Ç⌐ LEXMIR THEN
  192. {
  193. M ATK_SHOOT_FAIL CONTINUE
  194. @Çå `à╝ 
  195. W 2 SECONDS
  196. @Çì ADDLOGWEAPONSFAIL
  197. é 
  198. }
  199. M ATK_SHOOT
  200. }
  201. }
  202. { FIRE_PFD
  203. M PFD_SHOOT_1 FREEZE
  204.  
  205.  
  206. @Ç¥ STARTPFDBLAST
  207. @Ç╣ BOLTPFD LTLOWARM 6 15 0 0 0 
  208. @Çì STOPPFDBLAST
  209. M PFD_SHOOT_2
  210. }
  211. { STARTPFDBLAST
  212. e PFDBLST
  213. f LTLOWARM
  214.  
  215. v CURITEM PDFFR0 ON RESET 0
  216. v CURITEM PDFSD0 ON RESET 0
  217.  
  218. v CURITEM PDFFR0 ON INCREMENT 4
  219. v CURITEM PDFSD0 ON INCREMENT 4
  220. â 
  221. â 
  222. â 
  223. }
  224. { STOPPFDBLAST
  225. â 
  226. â 
  227. â 
  228. â 
  229. â 
  230. @ÇÜ PFDBLST
  231. ┤ 
  232. }
  233. { LEX_SHOOT
  234. I @Çæ RTHAND GRENADE THEN
  235. M GRENADE_TOSS
  236.  
  237. E I ^ﺠ= 1 OR ^üÇ THEN
  238. {
  239. ^ﺠ= 0
  240.  @Çì FIRE_PFD
  241.  
  242.  
  243.  
  244. I ^üÇ = 0 THEN
  245. {
  246. W 3 SECONDS
  247. i LEX PFDONCE
  248. }
  249. }
  250. E I @Çæ RTHAND BLASTER = $üâ OR @Çæ RTHAND TONFA = $üâ THEN
  251. {
  252. I @Ç⌐ LEXMIR THEN
  253. {
  254. M SHOOT_FAIL CONTINUE
  255. @Çå `à╝ 
  256. W 2 SECONDS
  257. @Çì ADDLOGWEAPONSFAIL
  258. é 
  259. }
  260. M SHOOT
  261. }
  262. }
  263. { ADDLOGWEAPONSFAIL
  264. W 2 SECONDS
  265. i LEX WEAPONSFAIL
  266. }
  267. { LEX_ENTER_COMBAT
  268. I @Ç⌐ HARD THEN
  269. @Ç¥ HARD_ENTER_COMBAT 
  270. E 
  271. {
  272. M ENTER_COMBAT
  273. w CURFIG CLEAR MDHNRR1 PICTURE 2
  274. w CURFIG CLEAR MDHNRF1 PICTURE 3
  275. w CURFIG CLEAR MDHNLL1 PICTURE 4
  276. w CURFIG CLEAR MDHNLF3 PICTURE 5
  277. }
  278. }
  279. { LEX_LEAVE_COMBAT
  280. I @Ç⌐ HARD THEN @Ç¥ HARD_LEAVE_COMBAT 
  281. E 
  282. {
  283. w CURFIG RESTORE MDHNRR1
  284. w CURFIG RESTORE MDHNRF1
  285. w CURFIG RESTORE MDHNLL1
  286. w CURFIG RESTORE MDHNLF3
  287. }
  288. }
  289. { LEX_STIMULUS _DAMAGE 
  290. P ~Çü 
  291. :GOT_HIT
  292. I @Çó ^îà == $üâ THEN
  293. {
  294.  ^îå 
  295. }
  296. é 
  297. }
  298. { LEX_BAT_100_TAKE
  299. @üì `몠$üë "a battery/GEine Batterie/FUne batterie !" 
  300. }
  301. { LEX_BAT_150_TAKE
  302. @üì `몠$üë "a battery/GEine Batterie/FUne batterie !" 
  303. }
  304. { LEX_ABAT_500_TAKE
  305. @üì `뺠$üë "an alien battery/GEine außerirdische Batterie/FUne batterie d'extra-terrestre !" 
  306. }
  307. { LEX_BLASTER_TAKE
  308. @üì `ë¿ $üë "a blaster/GEin Strahler/FUne arme !" 
  309. }
  310. { LEX_BLASTER2_TAKE
  311. @üì `ë¿ $üë "a blaster/GEin Strahler/FUne arme !" 
  312. }
  313. { LEX_BLASTERM2_TAKE
  314. @üì `ë¿ $üë "a blaster/GEin Strahler/FUne arme !" 
  315. }
  316. { LEX_BLASTERM3B_TAKE
  317. @üì `ë¿ $üë "a blaster/GEin Strahler/FUne arme !"
  318. }
  319. { LEX_BLASTERM5_TAKE
  320. @üì `ë¿ $üë "a blaster/GEin Strahler/FUne arme !"
  321. }
  322. { LEX_BLOCK_TAKE
  323. @üì `ë⌐ $üë "an alien artifact/GEin außerirdisches Artefakt/FUn objet fabriqué par les extra-terrestres !"
  324. W 5 SECONDS
  325. i LEX ARTIFACT
  326. }
  327. { LEX_BOMB_TAKE
  328. I @Çí CURFIG FIREBTN2 THEN
  329. {
  330. ^àÿ = 500
  331. @Çì BLAST_LEX
  332. é 
  333. }
  334. @üì `묠$üë "a bomb!/GEine Bombe!/FUne bombe !"
  335. }
  336. { LEX_CAYARM_TAKE
  337. @üì `ë½ $üë "a severed arm/GEin abgetrennter Arm/FUn bras tranché..." 
  338. W 3 SECONDS
  339. i LEX ARMOFF
  340. }
  341. { LEX_CAYLOG_TAKE
  342. I ^ÇÑ THEN
  343. {
  344. I ^Ǫ THEN
  345. @üì `ë¼ $üë "Caynan's logbook/GCaynans Logbuch/FLe livre de bord de Caynan" 
  346. E 
  347. @üì `ë¡ $üë "Caynan's logbook?/GCaynans Logbuch?/FLe livre de bord de Caynan ?" 
  348. }
  349. E 
  350. @üì `ë« $üë "a logbook/GEin Logbuch/FUn livre de bord" 
  351. }
  352. { LEX_DANELOG_TAKE
  353. I ^ÇÑ THEN
  354. @üì `ë» $üë "Dane's logbook/GDanes Logbuch/FLe livre de bord de Dane" 
  355. E 
  356. @üì `ë« $üë "a logbook/GEin Logbuch/FUn livre de bord" 
  357. }
  358. { LEX_ESCHERLOG_TAKE
  359.  
  360. @üì `ë« $üë "a logbook/GEin Logbuch/FUn livre de bord" 
  361. }
  362. { LEX_FLUTE_TAKE
  363. @üì `ë░ $üë "a flute/GEine Flöte/FUne flûte" 
  364. }
  365. { LEX_FORK_TAKE
  366. @üì `ë▒ $üë "a fork/GEine Gabel/FUne fourchette" 
  367. ^îæ = $üâ 
  368. W 3 SECONDS
  369. i LEX FINDFORK
  370. }
  371. { LEX_FORK_DROP
  372. ^îæ = $üé 
  373. }
  374. { LEX_GRENADE_TAKE
  375. @üì `ë▓ $üë "a grenade!/GEine Granate!/FUne grenade !" 
  376. }
  377. { LEX_KEY_TAKE
  378. @üì `ë⌐ $üë "an alien artifact/GEin außerirdisches Artefakt/FUn objet fabriqué par les extra-terrestres..." 
  379. }
  380.  
  381. { LEX_KEYDVICE_TAKE
  382. @üì `ë│ $üë "a device with a button/GEin Gerät mit einem Knopf/FUn appareil avec un bouton" 
  383. }
  384. { LEX_LEXLOG_TAKE
  385. @üì `ë« $üë "a logbook/GEin Logbuch/FUn livre de bord" 
  386. }
  387. { LEX_LOGA_TAKE
  388. @üì `ë« $üë "a logbook/GEin Logbuch/FUn livre de bord" 
  389. }
  390. { LEX_LOGB_TAKE
  391. @üì `ë« $üë "a logbook/GEin Logbuch/FUn livre de bord" 
  392. }
  393. { LEX_MEAT_TAKE
  394. @üì `ë╡ $üë "a hunk of meat/GEin Fleischklumpen/FUn morceau de viande" 
  395. }
  396. { LEX_MEDICAID_TAKE
  397. @üì `ë╢ $üë "a medical device/GEin medizinisches Gerät/FUn appareil médical" 
  398. }
  399. { LEX_ZEDICAID_TAKE
  400. @Ç¥ LEX_MEDICAID_TAKE
  401. }
  402. { LEX_PHOTO_TAKE
  403. @üì `ë╖ $üë "a photograph/GEin Foto/FUne photographie" 
  404. }
  405. { LEX_REFLECT_TAKE
  406. @üì `ë╕ $üë "a shimmering cube/GEin schimmernder Würfel/FUn cube miroitant" 
  407. }
  408. { LEX_REFLECT_DROP
  409. P ~ÇÇ 
  410. ~ÇÇ = 0
  411.  
  412. I @Ç⌐ LEXMIR != 1 THEN é 
  413.  
  414. I @Ç¡ CURFIG PLTDOOR THEN é 
  415. I @Çó ^àï THEN
  416.  ^àï 
  417. ^ÇÜ = $ââ 
  418. @Çå `éÆ 
  419. ù LEX 
  420. @Ç¥ LEX_WOUNDS
  421. I @ÇÄ BCH || @ÇÄ PAD THEN ~ÇÇ = 1
  422. I @ÇÄ TMP || @ÇÄ LND THEN ~ÇÇ = 1
  423. I @ÇÄ BTN THEN ~ÇÇ = 1
  424. I ~ÇÇ THEN
  425. {
  426. M CHOKE
  427. @Ç¥ KILLLEX
  428. é 
  429. }
  430. }
  431. { LEX_SCANNER_TAKE
  432. @üì `ë╣ $üë "a scanning device/GEin Scanner/FUn scanner" 
  433. }
  434. { LEX_TONFA_TAKE
  435. @üì `ë║ $üë "a big gun/GEin Gewehr/FUne grosse arme"
  436. W 10 SECONDS
  437. i LEX TONFA
  438. }
  439. { LEX_WTALKY_TAKE
  440. @üì `ë╗ $üë "a damaged walky-talky/GEin beschädigtes Funkgerät/FUn talkie-walkie endommagé" 
  441. }
  442. { LEX_LOG_ADDED
  443. @Ç¢ PLAYER
  444. @Çå `äñ 
  445. v CURFIG LEXPIM ON INCREMENT 60
  446. }
  447. { LEX_LOG_SEEN
  448. @Ç¢ PLAYER
  449. v CURFIG LEXPIM OFF
  450. w CURFIG RESTORE LEXPIM
  451. }
  452.  
  453.  
  454. //$ 26 - version number
  455.